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AMIGOS LECTORES: 

Ustedes pueden completar su 
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adquiriendo los números 
atrasados directamente en 
Av. 1 1 de septiembre 2305, 

local 18, o bien, 
utilizando la Orden de Pedido, 
adjunta a esta revista. 

(Números atrasados 
valen $ 500 cada uno) 
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Editorial 


A MIGOS atarianos, que emocionante es encontrarnos en un nuevo 
año y ver concretados los deseos de editar una revista para ustedes. 
En este momento rememoramos fugazmente los momentos iniciales, 
que fueron determinantes para lograr que MUNDOATARI sea una 
realidad en e! mercado latinoamericano. 

Este número permite anotar un nuevo liderazgo de MUNDOATARI 
al reportar los eventos en una feria internacional de computación a 
nuestros incondicionales amigos. En estas páginas deseamos compartir las 
vivencias de días inolvidables en COMDEX '87, en Las Vegas, USA, 

Los tiempos de vacaciones deben servir a ustedes, lectores, como 
tiempo ideal para avanzar en el manejo de su ATARI. Este avance debe 
direccionarse según las necesidades personales de cada uno. Un grupo de 
ustedes disfrutará dígitando, modificando y programando en el lenguaje 
de su preferencia. Para otro grupo será importante la utilización de su 
computador como herramienta poderosa en la optimización de sus 
actividades. Pensando en ellos iniciamos en este número una nueva columna 
de aplicaciones con programas de contabilidad, manejo de stock y otros 
que probablemente coincidirán con sus intereses. 

Pero no olvidemos que luego de este reparador descanso vuelve 
nuevamente la actividad y nuestro ATARI se adaptará al enfoque 
educacional. MUNDOATARI está en la planificación de una solución 
integral para todos, quienes tienen un grado de ingerencia en este quehacer: 
alumnos, profesores, padres y colegios. 

Por ahora nuestro deseo es de paz y prosperidad para el nuevo año. 

i Felicidades! 

SU EDITOR 
Iván Gjurovic M. 
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Colegios con ATAR! 



Colegio visitado: 

Nuestra Señora del Carmen 
Religiosas Carmelitas 

Avda. frarrázavaf 5310, Ñuñoa 
Santiago de Chile 


Respondiendo al llamado de 
su directora, Hermana Bernarda 
R ¡veros, MUNDOATARI visitó 
este prestigioso colegio que 
cuenta con dos salas de compu- 
tación, montadas como se apre- 
cia en las fotografías. 

PLAN DE ACTIVIDADES: 

1 . Reforzamiento de asignatu- 
ras: todos los niveles desde 

2o. básico a 4o. Medio, en las di- 
ferentes asignaturas, con grupos 
de alumnos. En la foto se mues- 
tra en acción el Superexamina- 
dor. 

2. Plan electivo para los alumnos 
de lo. y 2o. año Medio den- 
tro del plan curricular, usando el 
programa BASIC en grupos de 
20 a 30 a ¡ u mnos. 

3. Talleres extraprogramáticos: 
con 65 alumnos practicando 

el lenguaje LOGO. Desde 5o. a 
8o. básico, durante las tardes. 
Hay 2 niveles de iniciación y 
avanzado. 

Destacamos en este colegio la 
amplia colaboración de las alumi- 
nas para crear programas a utili- 
zar por los alumnos de cursos 
inferiores. 

MUNDOATARI pudo com- 
probar el alto nivel de aprendi- 
zaje en el lenguaje LOGO. Des- 
tacan alumnas como Viviana 
Martínez y Viviana Calderón. 

MUNDOATARI felicita a la 
dirección y al grupo del colegio 
por la excelente muestra y por 
su complementación para el 
logro de los objetivos. • 


* 
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Novedades ATARI 



COMPUTADOR 65 XE 

Ya está disponible en ei mer- 
cado nacional el nuevo compu- 
tador ATARI 65 XE de 8 bits y 
64 Kb de memoria RAM. 

El ATARI 65 XE es total- 
mente compatible con las líneas 
XL y XE, tanto en hardware co- 
mo en software, lo que le permi- 
te utilizar la toa! ¡ciad de los peri- 
féricos y accesorios existentes, 
como también el software dispo- 
nible, ya sea como cartridge, ca- 
setes o diskettes. 

Al igual que sus predecesores, 
ei ATARI 65 XE está basado en 
el microprocesador 6502C, ope- 
rando a una velocidad de 1.79 
Mhz, También dispone de los 
procesadores dedicados: GTIA, 
POKEY y ANTIC, destinados a 
suministrar las capacidades de 
gráficos, colores y sonidos, que 
han hecho famosos a los compu- 
tadores ATARI. 

El ATARI 65 XE cuenta con 
moderno diseño y un teclado 
con características ergonométri- 
cas, con 62 teclas y caracteres 
gráficos impresos sobre las te- 
clas, mas 5 teclas de funciones 
especiales. Trae incorporado en 
24 Kb de ROM, el Sistema Ope- 
rativo y el lenguaje BASIC. Dis- 
pone de 4 sintetizadores elec- 
trónicos de sonido, con el obje- 
to de generar tonos musicales o 
efectos especiales de sonido, 
con volumen controlable por 
software. Cuenta con la carac- 
terística especial de salida de 


audio hacia el televisor o moni- 
tor. 

En capacidades gráficas y de 
colores dispone de 16 modos 
gráficos distintos, de ios cuales 
5 son de texto y 1 1 para gráfi- 
cos con 256 colores, desde 
baja resolución hasta una reso- 
lución máxima de 320 por 192 
puntos y es capaz de desplegar 
en pantalla hasta 128 colores 
al mismo tiempo. 

Por la parte posterior cuen- 
ta con un conector para el bus 
de datos serial, que permite la 
conexión con los diferentes 
periféricos, e! compartimiento 
para insertar software en car- 
tridges y la salida de video para 
monitor y RF para televisor. 

En el costado derecho posee. 
2 terminales para conectar con- 
troles joystick, lápiz de luz, ta- 
blero gráfico u otro tipo de ac- 
cesorio. 

El nuevo computador ATARI 
65 XE se transformará, sin lugar 
a dudas, en el preferido de todos 
los entusiastas de la computa- 
ción ATARI. 


UNIDAD DE DISCOS 
ATARI XFF-551 

Una nueva unidad de discos 
ATARI XFF-551 ha sido incor- 
porada recientemente al merca- 
do, lo que le permite mayor ex- 
pansión y flexibilidad a su siste- 
ma computacional ATARI. 

La XFF-551 puede ser utili- 
zada con la totalidad de los com- 


putadores ATARI XL y XE y es 
totalmente compatible con los 
programas y archivos en diskette 
desarrollados para la anterior 
unidad de discos ATARI 1050, 
con Sistema Operativo DOS 2.5. 

La unidad de disco XFF-551 
es un eficiente medio de alma- 
cenamiento de información en 
un medio magnético, como son 
los diskettes de 5 1/4 pulgadas. 

Este periférico le permite agi- 
lizar los procesos de carga de 
programas, como también la 
lectura y grabación de archivos 
de datos y la administración de 
toda ia información contenida 
dentro del diskette, bajo ei con- 
trol def Sistema Operativo del 
Disco. 

Junto a la unidad de disco 
XFF-551 se suministra ei disket- 
te conteniendo el Sistema Opera- 
tivo DOS 2.5, su respectivo ma- 
nual de uso en español y un dis- 
kette con varios programas de- 
mostrativos y de aplicación, a 
fin de ayudar af conocimiento 
y operación de este periférico. 

La adición de la nueva unidad 
de disco a su configuración le 
abrirá las puertas de un mundo 
nuevo de posibilidades, que no 
eran posibles con la grabadora de 
casetes, especialmente en la uti- 
lización de programas profesio- 
nales, como planillas electróni- 
cas de cálculo, bases de datos, 
procesadores de textos y un sin- 
número de otras aplicaciones, 
que transformarán su compu- 
tador ATAR) en una poderosa 
herramienta profesional. • 
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PROGRAMAS 


Donkey Kong Jr. 


Para quienes ya conocen el 
juego Donkey Kong podrán con- 
tinuar divirtiéndose con las aven- 
turas y peripecias del hijo del go- 
rila. 

Mario Bross atrapó a Donkey 
Kong y lo mantiene prisionero. 
El pequeño gorila quiere salvarlo 
a como de lugar. Para ello debe 
recorrer una jungla poblada de 
peligros para liberarlo. 

Deberá subir trepándose' por 
lianas, esquivar peligrosos coco- 
drilos, saltar a plataformas rígi- 
das y móviles y pasar por trenes 
de láminas que rotan. 

Papá gorila se encuentra ence- 
rrado en una jaula, cuya llave 
maestra se encuentra colgada por 
ahi. Si tú logras alcanzarla, el 
prisionero será liberado y pasarás 
al siguiente nivel, 

El juego comienza con 3 vidas 
y ai pasar de 10.000 puntos lo- 
grarás una vida adicional. 

Hay 5 niveles de dificultad, 
numerados de 0 a 4 que puedes 
elegir al comienzo con la tecla 
OPTION. Con la tecla SELECT 
defines si juegas solo o con 
algún amiguito. Necesitas jugar 
con joystick. 

Algunas indicaciones para el 
mejor manejo del juego: Donkey 
Kong jr. subirá más rápido si se 
agarra de dos lianas o cadenas 
al mismo tiempo, pero bajará 
más rápido colgado de una sola. 
Si se encuentra parado, al apre- 
tar el botón lo harás saltar; si 
por el contrario está corriendo, 
al apretar el botón lo harás 
saltar en la misma dirección. 
Para lograr saltos más largos 
mantén apretado e! botón y d¡- 
reccionada la palanca por más 
tiempo. 

Y eso es todo por ahora. Nos 
vemos el próximo mes. 
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BUSQUEDA DE STRING 

Este mes la columna USR presenta una rutina 
muy útil para todos los usuarios en sus programas 
de aplicación. 

El siguiente listado contiene la rutina en refe- 
rerencia. En el casete o diskette de la revista MUN- 

: 1 - -i * 

DOATARI No. 8 encontrará usted el programa ya 
digitado. 


10 REH ML.T25 

11 SEN RUTINA para buscar un string 

12 DIN T5B$(14B) 

13 REH 

18 T5BS C1 , 80) =*^h!KWOw"IMI^hn 

Piha fflKglW iai WiüDfB E EHa3 *CH33 5033 
^lCHHBaSWiBBy fiBH ,t 

19 tsbS (81, 139) =*Qn!HZIM)90fl3KM£MVP 


•« 
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ASSEMBLER: continuación 


TSB$ : String que contiene el código de 

máquina. 

ADR(TSB$) : Localización de memoria inicial 

para el código de máquina. 

CNT : Número de registros (elementos 

de búsqueda). 

ADR (A$> : Localización inicial del string de 

búsqueda (string mayor). 

ADR{OFER$) : Localización inicial det string 

a buscar. 

RL : Longitud del elemento. 

L : Largo del elemento a buscar. 

E! siguiente listado aplica la rutina de búsque- 
da para un ejemplo. 


10 DIN T5B$U39) 

15 DIN A$C4425),0FER$120) 

18 T5B$ C1 , 88) 

ShhxiKiiKiiMfasra cHaaa+m era 

19 TSD$ (81 , 139) = ,6 aMEJ31M^0MllrQMll^Í9 

M r n¡D 


f 0 X K Pu ', L PicF L F K*,v t 


1U" 


KHDHP ; '/.P 

MESE 1 


II 


38 ^$(11=" "iA$«l=A$ 

58 A$ (101,110) ^HUNDOATARI” 

88 PRIMT "INGRESE TEXTO BUSQUEDA” 

78 INPUT OFER$ 

88 L-LER(OFCRS) 

180 T=U5RCADR(TSB$> ,440, ADRÍA$) .ADRÍOF 
ER$) ,18,1) 

II# ? T 

120 2 ” POSICION CORRESPONDE A "Í440-T 
+1 


Digite el listado anterior y ejecute. El valor al- 
macenado en la variable T del ejemplo indica la po- 
sición del número del elemento en sentido inverso. 

Para determinar en el otro sentido la diferen- 
cia con respecto al total determina la posición. 


La descripción de estas líneas corresponde a: 

10 Dimensiona string para rutina en lenguaje de 
máquina. 

15 Dimensiona string para variable A$ (contiene 
datos totales) y OFER$ (contiene datos a 
buscar). 

18-19 Datos de ML rutina de búsqueda. 

30 Inicializa string que contiene datos. 

50 Ingresa e! dato "MUNDOATARt" en el string 
total (localizado en posición 11). 

60-80 Ingresa texto a buscar. 

100 Ejecuta ¡a función USR con los valores preci- 
sos para este ejemplo de búsqueda: 

Ubicación de rutina ML 

p- Número de elementos 

, Ubicación del string A$, que contiene la 

totalidad de los datos 

I Ubicación del texto a buscar, ingresado en 

líneas 60-80 


Largo determinado para cada elemento 
Largo del string ingresado en variable 
OFER$ a buscar 



USR{ADR{TSB$). 440, ADR(A$), ADR{OFER$), 10, L) 


Para su práctica, amigo interesado en el cono- 
cimiento de la máquina, puede modificar la posi- 
ción del string de búsqueda en la línea 50. 

Usted dispone ahora de una herramienta pode- 
rosa de búsqueda que le permitirá optimizar sus 
programas de aplicación comercial. 

Recuerde que estos programas se encuentran 
ya digitados, para su comodidad, en diskettes o 
casetes de apoyo. Solicítelos por el Catálogo ATA- 

Rl. 

Hasta el próximo mes. • 
















Aplicaciones 


MUNDOATARI inicia en este número un nue- 
vo tipo de artículos de aplicación práctica, siendo 
sus objetivos atender al máximo de usuarios de los 
microcomputadores ATARI: 

1. Usuarios iniciales, que ven en el ATARI un 
elemento de ayuda en el desarrollo de sus ac- 
tividades. Para ellos la revista proporciona in- 
formación acerca de como usarlo y para que 
usarlo. 

El programa listado está disponible (ya digi- 
tado) en casete o diskette. 

2. Para usuarios avanzados en la programación 
BASIC. Los listados y explicaciones adjuntas 
servirán de modelo para la exploración y 
aprendizaje de otros software de aplicación 
profesional. 

3. Optimización: Los programas, como cualquier 
producto elaborado por el hombre, están su- 
jetos a modificaciones y mejoras. Ustedes 
pueden participar en las nuevas versiones más 
completas de estos mismos programas. 


CUENTA CORRIENTE BANCAR A 

Este programa de utilidad general para los 
usuarios con cuenta corriente, y que posean un 
ATAR I 800 XL, 1 30 ó 65 XE , permite las siguien- 
tes opciones: 

1 . Controlar los cheques emitidos. 

2. Controlar ios depósitos. 

3. Mantener saldo inmediato de su cuenta al día. 

4. Proyectar su cuenta hacia una fecha determi- 
nada (cheques a fecha). 

5. Emisión de cartolas. 

6. Búsqueda por alguno de ios Ítems. 

B 

El programa presenta el siguiente menú prin- 
cipal: 


INICIALIZAR: 

Esta opción permite ingresar los datos del gi- 
rador de la cuenta corriente y definir el talonario 
a usar. 

Una de las ventajas es el número de cheque, 
que controla el computador con sus archivos. 

MOVIMIENTOS: 

Presenta las siguientes opciones: 


GIROS: 

Usted ingresa fechas y datos completos del 
cheque. 


El siguiente listado presenta la versión en 
diskette para esta opción, el que por razones 
de espacio continuará e! próximo número. 


A 

35 

CA 

miraraa 
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APLICACIONES: continuación 



S POKE 82 8 

11 AIH Tfi¿t$(206),0FER$(32),AUHS(32) f T 
ITULOS 1251 , R$ til , FEC$ (3) , THPS 11811 , MES 
$ (121 , AIA$ 121 , TSB$ (1481 f TOTALS 05881 

11 DIN TAL 08$ (251 f CHEQUES (121 ,FEGRE$(3 
1 ( CHES IROS (121 , AttH$ (31 , ELEGIROS (641 

12 hover=aa r 

íiík timara 121133 ®^") 

13 LECTOR=ADRÍ ,, »hh»i J KlÍ J hl w h^JhhBf/ 

hhi HBNiHDf/8* 

15 ALIGAR ( ,, Hlrtí»/B í yS8MÍÍtHÍD^B^ 

/hShe+brLHJt* ,r > 

16 Y=U5R (MOVER, LECTOR, 1536,78) 

18 TSBS (1 , 88) hl 

Shh,lB<rafmi|fBfíI!D4Q CBiHjWSB33 IM 
zQ^liaEhPifiEH giH 11 

19 TSPS(81il39)~ ll M5lil¡CClihB^C W3l04l 3/B^ 
roHHAgl'.ItlII JM ifr elüliC tT\WlüM imiJTíWJlt 


II 


98 GOTO 18888 

188 REM HE NU 1 INICIALIZA 

118 ? CHRSÍ125) 

128 POSITION 8,18:? "CARGANAO ARCHIVO 
CONTROL 11 

138 LINE=288:60T0 22088 
158 ? CHR$(125) ¡POSITION 0,8:? '1 

u*nm*imx*MMM\A ' Mm4 1 1 II I II 1 

168 GOSUB 15808 

288 REH VERIFICA STATUS AEL TALON 
218 IF TR0L${286,286)“ ,, ^ 1, THEN 388 

258 REH RUTINA NUEVO TALON 
268 GOTO 15288 
388 REH MENSAJE ERROR 
318 PRINT CHRS (125) 

328 POSITION 8,18!? " 


ERROR USTED NO 


PUEDE INICTÚLIZÚR NUEVO Tú! OhAP 


10 HAY CHEQUES VIGENTES 


PRESIONE una tec 


a v continua 


|il. 
4 


338 POSITION 8,28:? '1 

mm 

348 CL05E tti : OREN ttI,4,0,' l K¡'*:GET Ni, A 

358 GOTO 18888 
1888 REH RUTINA HOVINIENTOS 


GúWDO archivo CONTROL 


1818 REH CARGA ARCHIVO CONTROL 


c 

A 

r 


n 



1828 IINE-1838 : GOTO 22888 

1825 REH VERIFICA ARCHIVO CARGA. AAT 

1838 GOSUB 22188 

1865 REH INGRESA FECHA HOVIHIENTOS 
1878 GOSUB 16888: GOSUB 16488 : FEGRE$=FE 

CS 

1885 REH HENU HOVIHIENTOS 

1898 GOTO 18188 

1188 REH RUTINA GIROS. 

1118 REH BUSCA ULTIHO CHEQUE 

1128 GOSUB 13888 ¡GOSUB 17880 ¡GOSUB 16* 

88 ¡ HE5$=TITUL0$ 

1148 ? CHRS (125) j " 


INGRESO DE CH 


lll * 

t 


EQUES GIRADOS 


1145 POSITION 12,2!? OIA;* 1 de "¡HESS;" 

de 18**1 Ai® 

1148 ELEGIRO$="f 

IV 

1149 ELEGIROS (5 , L ARGO+4) -CHEQUES : ELEGI 
ROS (2,4) =FEGRE$ : ELEGIROS (62 , 64) =FEGRE$ 
1158 RESTORE 28203:REAA TITULOS, FIN :P0 
SITION 0,4:? TITULOS; ** - **;CHEOUE$ 

1180 FOR J-4 TO 6 

1190 RESTORE 28199*J!READ AUH$,INI,TIT 

ulos,fin:l=fin~inih 

1200 POSITION O, J*2:? TITULOS 

1210 X=2:Y=l«J*2¡L=FIN-INI*i: GOSUB 159 


Este DOCUMENTO 


1220 T=LEN (OFERS) ¡ELEGIROS (INI+1,INI+T 
) -OFERS 
1230 NEXT J 

1240 POSITION 8, 20 5? *1 

laairi'HaiiMs/ 

1250 R=2:Y-Zl:L=l: GOSUB 15908 i IF OFERS 
="N" THEN 1388 

1270 GOSUD 16008 : ELEGIROS (62,64) =FEC$ 
1308 REH VALIAA INGRESO AE CHEQUE 
1310 ? CHRS (125) ¡*1 


VALIDA INGRESOS D 


Ni* 

» 


E CHEQUE GIRADO 


1315 FEC$=ELEGIR0$(2,4) : GOSUB 16*08: HE 

SS=TITULOS ¡ RESTORE 28202 ¡REAA TITULOS: 

POSITIOH 0,4:? TITULOS 

1318 POSITION 2,51? AIAj" de "jMESS;" 

de 19"; ANO 

1328 FOR J=3 TO 6 

1330 RESTORE 28199+J¡REAA AUH$,INI.TIT 
ULOS, FIN ¡ L=FIH-INI+1 : POSITION O, J*2 i ? 
TITULOS 

1348 POSITION 2,J*2+i¡? ELEGIROS (INX+1 
, FIN): NEXT J 

1345 FECS=ELEGIRO$ (62 , 64) : GOSUB 16400 ¡ 

HES$=TITULO$¡ RESTORE 28207: REAA TITULO 
$ ¡POSITION 0,14:? TITULOS 
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APLICACIONES: continuación 


i 348 POSITION 2,15:? DIA;" de "íNESSj" 
de 19"; ANO 

1350 POSITION 0,20:? * TCfirdgifi»iI¡l:L-Mi} 

1369 Y=21;X=2:L=1:GQSUB 15900 :IF OFERS 
O***" THEN 1140 

1365 INC=GIR0*64 ; TOTAL? (INCU , INC+64) = 
ELEGIROS 

1370 LASTCHE=LA5TCHE+1 : GIR0=GIRG+1 :G05 
UB 17900 

1300 REM RUTINA FINALIZA INGRESO RE GI 
ROS 

1385 IF LASTCHE)HAXCHE THEN 31000 

1390 ? CHR$ (125): POSITION 0,10:? ' «W 

HTOEMíE HUiIMtU 11 ; 

1400 X=2:V=12:L=l:G05UB 15900 : IF OFERS 
<> n S M THEN 1429 

1418 GOSUB 22388 :S0SUB 17100: GOSUB 225 
00 ¡GOTO 10209 

. , m * n • *. 

1420 REM RUTINA CAMBIO FECHA INGRESO 
1430 ? CHRS (125) : POSITION 0,10:? ' «Pía 

1440 X=2:Y=12:L=1: GOSUB 15900 :IF OFERS 

W THEN 1450 

1445 GOSUB 17000 ¡GOTO 1140 

1450 GOSUB 16000 .‘GOSUB 17480: GOTO 1140 

1999 STOP 

2000 REH RUTINA SALDOS 

2019 REH CARGA ARCHIVO CONTROL 
2828 LINE=2030;G0T0 22000 
2108 PRINT " 3" :END 

3180 PRINT " 4" • END 
4100 PRINT "5"«ÉNR 
10000 REH MENU INICIAL 

1O01O GRAPHICS OiPOKE 752,1 
10020 POSITION 0,0:? '1 “ 


CUENTA CORRIEHT 


1O03O POSITION 15,2;? " M E N U" 

10040 POSITION 4,5;? 11 1.- INICIAL IZA 
CUENTA 11 

10050 POSITION 4,7í? " 2,~ MOVIMIENTOS 

IV 

18060 POSITION 4,9:? *' 3.- SALDOS*' 
10070 POSITION 4,11;? " 4.- BUSQUEDA D 


E CHEQUE** 

10038 POSITION 0,28;? '1 


DIGITE nuner 


EN til, 4, B^: 11 

10085 GET atl, A : IF A<49 OR A>54 THEN 18 
085 

1909O D=A~48;P0KE 752,0 :0N D GOTO 100, 

1880,2080,3000,4090 

18100 REH HENU HOVIHIENTOS 

18110 GRAPHICS 0;P0KE 752,1 


o de OPCION 

**:CL05E #1:0P 


15870 POSITION 8,26:? ** 

REVI5E LOS DAT 


18120 POSITION 0,0:? "I 


CUENTA CORRIENT 


1013O POSITION 15,2:? “ ME N U* 
18140 POSITION 4,7:? ** 1,- 


10150 POSITION 4,9:? ** 2, 


10160 POSITION 4,11:? " 3.* 

in 


GIROS 


DEPOSITO 


MENU PR 


INCIPAL 


DIGITE nuwer 


CIO 


":CLOSE ttüOP 


10180 POSITION 0,20:? *1 

EN #1,4,0, "K:" 

10185 GET ttl,A:IF A<49 OR A>54 THEN 10 
185 

10190 D=A-48:P0KE 752,0:00 D GOTO 1100 
,1408,1800 

13000 REM RUTINA BUSCAR ULTIMO CHEQUE 
13018 NUHTA^ASC CTROL $ (1,1)) :TOT GIROLAS 
C (TROLS (243,245)) ;MAX=ASC (TROLS (235, 23 
7)) 

1302O RESTORE 20009*NUHTA : READ DUM$,IN 
I, TITULOS, FIN :L=FIN-INI+1 
13030 TALON$=TITUL0$ : CHEQUE$=TROLS (INI 
,FIN~1) 

13O40 L=LEN (CHEQUES) ;FOR TO L 
13050 IF CHEQUES (L,L)= M " THEN GOTO 13 
670 

13060 NEXT J 

13670 LARGO- J1 ; THP$=CHEQilE$ (IARG0 2 , L 
ARGOT ¡ CHEIN=VAL (THPS) 

13080 GIRO^VAL (TR0L$ (238,240) ) 

13090 LA5TCH£=CHEIN+6IR0 : MAKCHE=CHEIN+ 
MAX 

13899 RETURN 

15008 REM INICIALIZA DATOS GIRADOR CUE 
NTA 

15010 TROLS (1)=" " : TROLS (286) ":TROL 
$ (2) -TROLS : TROLS (1,1) =CHR$(6) 

15015 TROLS (235,248) ^eOOOOOBOOOBBOO" 
15020 F0R J=2 TO 9: RESTORE 2?999+J:REA 
D DUMS.INI, TITULOS, FIN : L=FIN~INI +1 
15630 POSITION 0,J*2-l:? TITULOS 
15048 X=2:Y=J#2: GOSUB 15968 
15050 T=LE# COFERS) : TROLS (INI?1 , INW) ■= 
OFERS 

15860 NEXT J 


05 DEL GIRADOR CUENTA 


o 


m 


COR 


5/N M J :INPUT RS 
15080 IF RSO M 5'* THEN GOTO 15888 
15090 GOSUB 22588: RETURN 
15200 REH INGRESO DATOS DE TALON EN US 
0 

15205 ? CHRSC125) 


► 
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APLICACIONES: continuación 


15219 NUMTA=A5C (TROLS (1,1)) 

15215 IF NUMTA>3 THEN COTO 30000 

15220 RESTORE 28069+NUHT A : RE A6 6UM$,IN 
I, TITULOS , FIR ¡ L=FIN“INIU 

15230 POSITION 0,4;? TITULOS 

15240 X=0 ; ÜÉ i GOSUB 15900 

15250 T=LEN fOFERS) í TROLS (INI+1, INI*T ) - 

OFERS 

15260 RESTORE 20013 í REA® 0UMS,INI,TXTU 

LOS , FIR : L=FIN-TNI*1 

15270 POSITION 0,0:? TITULOS 

15200 X=0:Y=9:COSUB 15900 

15298 T=LEN (OFERS) ! TROLS ÍINIU,INI+T) = 

OFERS 

15300 RESTORE 28O19tNUHTA:REA0 DUH$,IH 
I , TITULOS , FIO ! L=FIN“INin 
15310 COSUO 16000 

15320 T=LEN(FEC$) í TROLS fWI*l,INI+T)=F 
EOS 

15350 ? CHRSU25) 

15360 POSITION 0,0:? '1 


0 TALONARIO 


DATOS DEL NULO 


Mi 


15370 RESTORE 2¡8809+NUHTA:REA0 6UM$,IN 

I, TITULOS, FIN: L=FIN-INIU 

15380 POSITION 0,4:? TITULOS 

15390 POSITION 2,5:? TROLS (INI, FIN-1) 

15400 RESTORE 28013: REA» MMS, INI, TXTU 

LOS,FIN:L=FIN-INIU 

15410 POSITION 0,8;? TITULOS 

15420 POSITION 2,9:? TROLS (INI, FIN“1) 

15430 RESTORE 2O019*NUHTA:REA0 OUH$,IN 

I, TITULOS, FIN ¡ L=FIN“INI+1 

15440 POSITION 0,12:? TITULOS; COSUO 16 

400 

15450 POSITION 2,1I¡? OIA,*" de "¡TI TUL 

0S¡" de 19" ¡ANO 

15468 P85ITI0N 0,20;? ‘W’itiaaftuteguaa* 
6IÜEB S/N ?" 

15470 L=1:X=2:Y=21: COSUO 15900 
15460 IF OFERS O "S" THEN 15200 
15402 NUHT A=NUMT A*1 ¡ TROLS (1 , 1) =CHR$ (NU 
HTA) : TROLS €236, 240) =“060" 

15465 TROLS (266, 266) =" K* : COSUO 22560 
15496 COTO 10606 

15960 OFER$= ,m :C0N=0:CLOSE ttÜQPEN til, 

4,0,“K: M :P0KE 764,255 

15965 CON=CONU;IF CON>L THEN 15970 

15910 POSITION X*C0N-1,Y:? «*“¡:6ET Hl 

, A:POKE 16,112; PONE 53774,112 

15920 IF A=155 THEN 15976 

15930 IF A=126 ANO C0N=1 THEN COTO 159 

10 

15935 IF A=126 THEN C0N=C0N-1: POSITION 
N-1*C0N,Y;? w ":COTO 15910 


15946 IF A<32 OR A>124 THEN SOTO 15940 
15956 LOC=NT+CON : OFERS (LOC , LOO =CHR$ (A 
) ¡POSITION X-1+C0N,Y:? CHRS(A) 

15960 COTO 15905 

15970 IF C0N=i ANO A=L55 THEN SOTO 159 


15980 FOR A=126 TO 88 STEP 20 ¡SOUNO O, 
A,16,8:F0R TIME=1 TO 36:NEHT TiíME:NEXT 
A: SOUNO O, 0,6, O 

15985 POSITION H+C0N~1,Y:? " "¡ 

15990 PONE 764,Z55:RETURN 
16000 FECS= M,, :AN0=1988 
16016 ? CHRS €125) ¡POSITION 4,17:? “FEC 
HA : 00/06/19“ 

16020 POSITION 6,0:? *1 


E5G- CORRECTO DE FECHA 


PANTALLA INGR 


ki 


16030 RESTORE 28161 i FOR J=1 TO 12: 
TITULOS, MAX: POSITION 2,J+3:? J¡“. 

POSITION 8, J?3:? TITULOS : NEHT J 

16040 POSITION 0,20:? 


- M • 


MÍ 


DIGITE el nuwer 


ue corresponde al fres 


Pi 


16650 L=2:N=2:Y=2l:C0SUB 15900 
16066 TRAP 16040 :MES=VAL (OFERS) :IF INT 
(MES) <1 OR INT (MES) >12 THEN 18646 
16070 L0C=48128+HES*40:FOR J=8 TO 10 :P 
ONE LOCTJ, PEEN (LOC+J) -128 :NEXT J 
16086 MESS=STRS (MES) : L=LEN (ME5S) : POSIT 
ION 17-L,18:? HESS 

16090 FOR J=0 TO 9:POSITION 24,J*4:? J 
¡".-"¡ANO*J:NEXT J 
16100 POSITION 0,26:? “ 


DIGITE el ntrner 


o que corresponde al fttto 


(««9 li 

I ■ 


li 


16118 L=l:X=2:Y=2l: COSUO 15900 
16126 TRAP 16166 :ANO= VAL (OFERS) :IF INT 
(ANO) <6 OR INT (ANO) >9 THEN 16160 
16136 LOC=40187+AN0K40 i FOR J=0 TO 3:P0 
KE L0C+J,PEEK(L0C+J)M28:NEXT J 
16146 POSITION 20,18:? AN0*88 
16150 POSITION 8,20:? “ 


DIGITE el nuher 


ue correspondealdia 



Ni>V i» 


li 


16160 L=2:X=2:Y=21:G05U8 15988 
16176 TRAP 16150 :0IA=VAL (OFERS) 

16180 RESTORE 28100?HES : REA0 TITULOS, M 

AX 

16190 IF MESO 2 THEN 16250 

16200 IF ANQ=0 OR AN0=4 THEN HAX=MAX+1 

16210 IF AN0=8 THEN HAX=MAX*1 

16256 IF INT (OIA) <1 OR INTÍDIA)>HAK TH 

EN 16150 

16260 0IAS=STRS(DIA) :L=LEN(0IAS) ¡POSIT 
ION 14-L,18:t OIAS; ¡ AN0=AN0+88 
16300 POSITION 6,20* ? *1 

gEgBM— — — 1 ') 01**1" de “ 

¡TITULOS,*" de 19“¡AN0¡“ WiaatifcM S/N" 


La FECHA Ingres 
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APL iCA Ci ONE $: continuación 


16318 L-i:X-2:Y=2Z;G05UB 15988 
16320 IF 0FER$O"5” THEH 16880 
16338 FECS (1 , 1) =CHR$ (DIA) : FEC$ (2 , 21 =CU 
RS(HES) : FECS (3,3) =CHR$ (ARO) 

16398 RETURN 

16480 REH RUTINA DECODIFICA00R FECHA 
16410 DIA=ASC (FEC$ (1 f i) ) 

16428 HES=ASC (FECS (2, 2 ) ) i RESTORE 28100 

+HE5:READ TITULOS 

16438 ANO=A5C(FECS(3,3)) 

16440 RETURN 

17888 REN RUTINA CREA CMEGIROS 
17818 THP$=5TR$ (LA5TCHE) :L=LEH(TMP$) :A 

AUKS (4*L, 3) =TM>$ : CHEQUES (LAR 
G0~2) =THP$ : RETURN 

17100 REH HO0IFICA CONTROL PARA NUEVOS 
RATOS GIROS 

17110 THP$=STftS (GIRO) : L-LEN (THPS) : "¡ROL 
S (238 , 248) =" * : TROLS (238, 237+L) =THP$ 
17128 TMPS-STRS (TOTGIRO) : L=LEN (THPS) : T 
ROLS (243 , 245) = ia 11 1 TROLS (243 , 245*L)=T 

HPS 

17150 RETURN 

28019 RATA SALDO ACTUAL, 258 

22800 REH CARGA CONTROL RESRE UNIRAR R 

E RISCO 

22010 CLOSE 02 
22820 TRAP 158 

22038 OPEN ¡t2,4,§, ,, 8;T0NTR0iu8AT H 

22840 TROLS (1)=" TROLS (286)=" " : TROL 

S (2) -TROLS ; HUHE=1 
22858 TRAP 22890 

2206O GET 02, R: TROLS (NUHE , NUHE) =CHR$ (R 
) 

22078 NUHE=NUHEH 

22080 GOTO 22068 

22098 GOTO LINE 

22100 REH CARGA ARCHIVO, RAT 

22110 TRAP 22130; CLOSE 02 i OPEN 02,4,0, 

“D: GIRO. DAT" 

22120 GOTO 22208 

22138 CLOSE 02:OPEN 02, 8,0, ”R ¡GIRO. RAT 
" SPRINT 02 ¡"FIN": CLOSE 02 
22140 TOTALS (11 =” ” ; TOT AL$ (9660) =" ":T 
0TAL$(2)=T0TAL$ 

22160 FOR J=8 TO 99 : INC - J*64 ; TOT AL$ (14 

INC , 1+INC) ="f“ ¡ NEXT J 

22170 FOR J=0 TO 99: INC:: J*32+6480 ; TOTA 

LSCinNC,lFIRQ)r”f;NEXT J 

22190 Y=USR (1537, ARR (TOTALS) , 400,75, 87 

) 

22195 RETURN 

22280 REH CARGA SECTORES CON RATOS HAC 
IA STRING TOTALS 


22210 TOTALS (1)-" TOTALS (9688)=“ “IT 
0TAL$(2)=T0TAL$ 

22228 Y=USR (1537, ARR (TOTALS) , 460,75,82 
) 

22230 RETURN 

2230O REH SALVA HACIA SECTORES RATA RE 
STRING TOTALS 

22318 Y=U5R(iS37, ARR (TOTALS) , 408, 7S, 87 

) 

22320 RETURN 

22580 REH SALVA ARCHIVO CONTROL 
22510 CLOSE 4t2 : OPEN O2,8,8,"R:TüNTR0L. 
RAT" 

22520 PRINT 02; TROLS 
22540 CLOSE 02: RETURN 

28000 RATA INICIAL, O 

28001 RATA 
28082 RATA 
28003 RATA 
28084 RATA 

28005 RATA 

28006 RATA (ÜX 
28087 RATA 
28888 RATA 
28809 RATA 

28010 RATA 

28011 RATA ÍHÜT 

28012 RATA 
28813 RATA 

28014 RATA 

28015 RATA 

28816 RATA 

28817 RATA 
28018 RATA 
8 i 

28028 RATA 
28821 RATA 

28022 RATA 

28023 RATA 



i 96 



co 

¡,121 

SUCURSAL H 


,136 


DIRECCION BANCO 


NUMERO CTA BANCO 


TALONARIO 8 i 


TALONARIO U 3 


TOTAL 


TOTAL 


TOTAL 


TOTAL 


TOTAL 


,166 
,186 
,198 
, 21 © 

,222 
,234 
,237 


CHEQ TALON 


CHEQUE GIRADOS 


CHEQUES NULOS 


GIROS EN ARCHIVO 


DEPOSITOS ARCHIVO 


,248 

,242 
,245 
1,24 


FECHA TAL 8 1 


FECHA TAL 8 i 


FECHA TAL tt 3 


FECHA TAL tt 4 


1,258 

1,261 

1,264 


i, 267 

28108 REH RATOS INGRESO FECHAS 

[, 31 


28181 RATA 

28182 RATA 

28103 RATA 

28104 RATA 
28165 RATA 

28106 RATA 

28107 RATA 
28188 RATA 
28109 RATA 
28118 RATA 

28111 RATA 

28112 RATA 
28120 RATA 
28138 DATA 


ENERO 


FEBRERO 


MARZO 


ABRIL 


MAYO 


JUNIO 


JULIO 


AGOSTO 


SEPTIEMBRE 


OCTUBRE 


NOVIEMBRE 


t- rr i'ruc -ÍT 


NOVIEMBRE 


DICIEMBRE 


i, 28 

,31 

1,38 

1,31 

r, 30 

í, 31 
,31 
,38 
1,31 

j, 38 
,31 
1,36 
1,31 


( sigue 
en pág. 
16 ) 
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Nuestra columna de continuidad, interrum- 
pida el mes de diciembre, se reanuda con la pre- 
gunta formulada en MUNDOATARI No. 6. 

La modificación de los datos de uno de los 
amigos (registros) ingresados en el archivo, presen- 
ta para este programa dificultades y podría reali- 
zarse si el largo inicial del campo corresponde a 
modificación. 

Para ello veamos este nuevo programa: 


18 PRIHT CHR$ (125) 

2» PRUT “Inserte el diskette de ratos 


ii 


3R PRIHT '1 


PRESIONE 5 T íjR T para contj.nu 


68 IF PEER (53279) 06 THE# 68 

78 8IM 18$ (?) j COPES £31 , HOMBRES (38) * 8IR 

ES (38) , CIUDAD $ (28) , TELES 1121 , PAIS$ (28) 

88 8IM ARCHIiS (16) , ARCHI2S (16) 
n ARCHIl$= ,a & ! A MICOS . 8AT” : ARCHI2$- ,, D : A 

MICOS . TMP" 

188 CLOSE Hl: GLOSE H2 

118 TRAP 280. OPEH # 1 , 4 , 8, ARCHIiS ¡TRAP 

48888 

128 OPEH #2,8,8,ARCHI2$ 

138 COTO 308 

288 ? ¡? CHRS (263) } M Archivo PATOS no 
presento el 8ISRETTE en uso * 1 
218 PRIHT “PRESIOHE SHBQ P»ra probar 
con otro dishette 1 * 

228 ? : PRIHT “PRESIOHE HWU para crt 
arlo en el dishette" 

238 IF PEER (53279) -6 THE# 188 
248 IF PEERÍ53279) 05 THE# 238 
258 CLOSE til : OPEH #1,8,8, ARCHIiS 
268 PRIHT #i¡ ,, FIHARCHI” 

278 CLOSE ttÜGOT® 188 
388 IHPItT #1,»$ 


385 IF I8$= ai FIHARCHI a> THE# 408 
318 PRIHT #2; 18$ 

328 PRIHT “ Este registro va archivo t 
EN. . .“¡18$ 

338 INPUT #1, NOMBRES ¡PRIHT #2; HOMBRES 
348 IRPUT tti , 8IRES : PRIHT «2; DIRES 
358 IRPUT #1 , CIU8A8S ¡ PRIHT #2;CIU8A8$ 
368 IHPUT #1, TELES ¡PRIHT #2; TELES 
378 IHPUT #1, PAI5S : PRIHT #2;PAI5$ 

398 GOTO 388 

488 PRIHT CHRS (125) J" AGRECA REGISTRO 
CHRS (29) 

418 PRIHT “ HUMERO 8 FIN. . ."¡IHPUT 18$ 
:IF I8$= ia FIN“ THEH 688 
428 PRIHT “HOMBRE.. ,.“¡ ¡IRPUT HOMBRES 
425 PRIHT “8IRECCI0H. 11 ; ¡IRPUT PIRES 
438 PRIHT "CIUOAO.... 11 ;: IHPUT CIU8A8S 
435 PRIHT “TELEFONO ,. "J ¡IHPUT TELES 

440 PRIHT "PAIS. ta ¡ ¡ IHPUT PAI5S 

458 ? ¡? “PREIONE HM8M PARA AGREGAR 

REGISTRO" 

468 ? ¡? “PRESIONE MflAiiEl PARA M08IFIC 

AR 8 ATO 5" 

478 IF PEER (53279) =3 TREN 488 
480 IF PEER (53279) 05 THEH 478 
588 PRIHT #2; 18$ 

518 PRIHT #2; NOMBRES 
528 PRIHT #2) AIRES 
538 PRIHT #2jCIU8A8$ 

548 PRIHT #2 ¡TELES 
558 PRIHT #2 ¡ PAISS 
578 GOTO 488 
688 PRIHT #2; aa FlNARCHI“ 

618 GLOSE #l; CLOSE #2 

620 PRIHT CHRS €125) ; “HORRA ANTIGUO ARO 

HIV8 11 

638 XIO 33,#l,8,8,ARCHIlS 
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64» ? :f "CAMBIA Nf»I&RE ARCHIVO 11 
650 XIO 32, 81 j 6 , 0 , : AMIGOS . TMP, AMIGOS 
. DAT" 


660 PRUT : PRIHT 


* FIN DEL PR0GPAMAI 


El siguiente diagrama de flujo explica este 
programa: 



Ejecute el programa y compruebe las etapas 
del esquema de flujo analizado. 

TAREA PARA USTEDES: 

— Modificar líneas de programa para ver los 
datos de cada registro del archivo. 

El próximo mes continuaremos con las lí- 
neas de programa para modificar registros. La 
estructura de este programa lo permite, al pre- 
sentar dos archivos similares en el diskette. 

Hasta el próximo número. • 



GRUPOS DE USUARIOS 

□ Linares: 

La presente foto sirve de presentación 
para el grupo de usuarios del hospital de 
Linares. 

En nuestras oficinas nos visita el Dr. 

- »■ - 

Fernando Valle Soto para informarnos de un 
grupo de 55 usuarios de los funcionarios de 
la provincia de Linares. 

Las actividades que realizan son: 

— Educación con un curso básico de pro- 
gramación BASIC de 20 horas. 

— Intercambio de software. 

— Adquisición de equipos para nuevos 
usuarios. 


I 




















/ NO TE. QUEDES ATIBAS EN fcA ESCALA. 

; ENTOA AL MUNDO „ 

■ "■ 'ir -j.M 

■■CLUB DEC 

&8upo usuAfisoSAmry c&qüa -Best* u 
ifr. i NSCttPCíoMt& ■ 

fe 




Agradecemos tan reconfortante visita. 
Estaremos en contacto para informarles acer- 
ca de otros grupos de usuarios para una ac- 
tividad masiva con estos grupos. 


□ La Serena: 

Recibimos carta del Club de Computa- 
ción Indio Compuclub de la provincia de 
La Serena, por intermedio de su presidente, 
don Francisco Farias Palma. 

Este interesante grupo activo de 186 
usuarios fue conocido por nuestro departa- 
mento de suscripciones por el alto número 
de suscripciones captadas. 

El grupo fue fundado el 14 de mayo de 
1986, y tiene interés en tomar contacto con 
otras instituciones afines para intercambiar 
ideas, conocimientos y programas. 
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APLICACIONES: continuación 



2617? REH RATA GIROS INGRESO 

28260 RATA INICIAL «6 

28261 DATA STATUS, 1 

28262 NATA FECHA EMISION, 4 
28201 RATA HUMERO CHEQUE , 16 
28264 RATA CAHTIRAR, 26 
28205 RATA ORREN de : ,46 

28266 RATA En PACO de 5,61 

28267 RATA FECHA PACO, 64 

36060 REH MENSAJE ERROR MAYOR A 4 TALO 

NARIOS 

36010 ? CHR$(125) 



36630 NUEVA=16006 ! COTO 30960 


30908 REM TECLA 
30910 P0SITION 0 


PARA CONTINUAR 


,26:? 


I PRESIONE una t 


ec la para continuar 


36920 CLOSE NI: OREN »1.4,0,»K ;“:CET *»1 


,A:CLOSE til: COTO NUEVA 

31060 REM MENSAJE FINALIZA TALON EN US 

0 


31016 ? CHRSC125) 

31026 POSITION 6,16:? 11 


E INGRESAR HUEVO CHEQUE 


ERRÜRNCMHJKD 
AL PRE SIONAR 

'i . . • * — 


REGLA INIC IAIIZA OTRO 


31030 NUEVA=15200 : COTO 30960 


• • • 


CONTROLANDO LA CASETERA colabora 
este mes con el programa Cuenta Corriente Sanea- 
ría para ejecutarlo mediante la Unidad de Casete. 
Para ello siga las siguientes instrucciones: 

- Elimine del listado principal la línea 15090. 

- Modifique las líneas indicadas en los bloques 
siguientes a la rutina de páginas 10-13. 

Recuerde que este programa se encuentra dis- 
ponible y ya digitado en el reverso del casete de 
la revista MUNDO ATAR! No. 8. 


120 POSITION 0,16:? "CARGANOS ARCHIVO 


CONTROUttttt+tt+PRESIQHE PLAY Y Efíffl 

13" 



22560 REH SALVA ARCHIVO CONTROL UNIRAR 
RE CASETE 

22510 CLOSE «12 JOPEN «2,0 I e,"C¡" 

22528 PRINT 82jTR0L$ 

22540 CLOSE tt2¡RETURN 


22080 REM CARCA CONTROL RESRE UNIRAR 0 
E CASETE 

22018 LINEA=22015 : GOTO 22800 

22615 CLOSE tt2 

22020 TRAP 150 

22030 OPEN «t2,4,0, ,t C!" 

22040 TR0L$ (1) =" M :TR0L$t206) =" “ : TROL 
$ (2) =TROL$ J NUHE=1 
22050 TRAP 158 

22068 CET tt2,R: TROLS CNUME , NUHE 1 =CHR$ tR 
l 

22076 NUH£=NUME+1 
22888 COTO 22060 
22090 GOTO LINE 


22280 REM CARCA STRIHG TOTAL RESRE ARO 
ÑIVO EN CASETE 

22218 T0TAL$C1)=” '*:TOTAL$C9606) = 

ÜTAL$Í2J=T0TAL$ 

22220 CLOSE «12 JOPEN «t2,4,0, ,, C:" 

22230 F0R J=i TO 99 
22240 INPOT «I2;THP$ 

22250 INC=tJ-l)*96 

22268 TOT AL$ ÍI«NC , 96+INC) =THP$ 

22270 NEXT J 

22280 CLOSE H2¡RETURN 


22300 REM SALVA STRINC TOTAL HACIA ARC 
HIVO EN CASETE 

22328 CLOSE #2 JOPEN H2,8,0,*'C:" 

22330 FOR J=0 TO 99 

22340 INC=U-1T*96 

22350 TMP$=T0TAL$tl*INC,96*INC) 

22360 PRINT M2;TM»$ 

22370 NEXT J 

22300 CLOSE 112: REHIRO 


— 


22808 REH RUTINA INI CASETE 

22805 CL6SE «12: TRAP 22988 

22818 OPEN «12,4,8, "Cr'MNPUT H2,R$ 


22850 COTO LINEA 

22988 REH RUTIHA INICIA RUHMY 

22905 ? CHR$ C1251 ¡ “REBOOINE LA CINTAS 


PRESIONE RECORR Y PLAY Y 


RE TU 


gji 

22910 CLOSE ««2: OPEN lt2,8,0, l, C:‘ , ¡PNINT 


«2,^*';! CLOSE m 
22920 CLOSE «12: COTO 150 
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DO 


EL JUEGO DEL MES: 



Este juego simple se ubica en una galaxia, 
donde vuelan plantas venenosas, que con el sólo 
contacto te paralizan. Tú eres el Hombre Halcón, 
y tienes 3 vidas y una cantidad limitada de com- 
bustible. 

En la superficie del planeta, parte inferior 
de la pantalla, habitan reptiles que debes eliminar. 

Para desplazarte tienes e! joystick, pero la 
dificultad se encuentra en los vientos permanen- 
tes sobre ese terrible planeta, los que te obligan 
a realizar vuelos en diagonal, como los del halcón, 
sorteando los obstáculos de las flores venenosas. 

Al eliminar reptiles ganas puntos. Si logras 
acumular 10.000 puntos eres el vencedor del 
planeta. 

Suerte, Hombre Halcón, y hasta ei próximo 
mes con un nuevo juego. 
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TIPIANDO: continuación 



100 REN HOMBRE BALCON 

no rem 

120 REM 
130 REM 

140 GOSUB 530 ¡ENERGY=580¡ GOTO 180 
150 POSITIOH 1,1:? ttOíERERSYí'* ,a ;:P05I 
TIOH 13-LENC5TR$(SC0RE)),1¡? 996;SC0RE; 
160 1F ENERGY (=0 THEH 440 
178 RETHRN 

180 XF 5TICRÍ0) OIS THEN 5T=5TICRC8):P 
ORE 77,0 

190 IF RN6(Q)>0.95 THEN POSITION 19*RN 
0 (0) , 10MRNO (0) 93 : PUT 996, ASC (FODL$ CINT ( 
4*RND (8) 91) ) ) 

280 IF RN0 (0) (8.7 THEN 228 
218 POSITION INT (18*RND (0) ) *2, 209 (RNO ( 
8) >0 . 5) : C=3392*(RN0 (0))0.7) !? 9*6 ; CHR$ t 
C) ; CHR$ (C91) ; 

220 IF PEER C5 3 252) OR PEER (53253) THEN 

440 

230 COLOR PC ¡PLOT PX,PY ¡ENERG Y=ENERGY- 
l-9*íl-5TRI6C8)> 

240 POSITION 1,1:? 996 J ENERGY* ÍENERGY>0 
l¡" "} 9IF ENERGY (=0 THEN 440 
250 NR=PH91-2*C5TICKI0)=11J ¡NY=PY-tNX< 
0) 9 (NX>19) : NK=NX*ÍNX<28> 920*(NX<6) 

260 NY=NY9(5T=13)-CST=14) :IF NY<3 OR N 

Y) 20 THEN 5T=27-5T:NY=PY 

270 LOCATE NH,NY,MHATSIT 

288 IF NYH9 THEN Z=PX*2-20*fPX>9) ¡LOC 

ATE Z,NY9CPX>9),MIATSIT:G0T0 330 

298 IF HHAT5IT-32 TREN COLOR 32:PL0T P 

X,PY;PX=NK:PY=NY¡GOTO 180 

300 IF STRIGC0) THEN 448 

310 COLOR 32;PL0T PX,PY:FOR 11=15 TO 0 

STEP -0,5: SOUNO 0,H,12,8¡SOUN0 1,M,0,8 

íNEXT M 

328 50UN0 0,0,O,8:SOUNO 1, 0,0,0 :WATSI 
T=32 ! SCORE=SCORE910 ¡ ENERGY-ENERGY-50 : G 
0SU8 150 ¡GOTO 280 


330 5T=27-ST:IF HHATSIT<33 OR HHATSIT) 
34 THEN 360 

348 POSITION Z,NY9CPX>9):PUT 996, 32 ¡PUT 
116, 32 :SCORE=SCORE910 ;ENERGY=ENERGY950 
350 COLOR 32 ¡PLOT PX,PY¡PX=HK¡5C0RE=5C 
0RE950:G0S0B 158 ¡GOTO 188 
368 IF MHATSIT=32 THEN 180 
378 REM 

388 PORE 0L*19,112:P0RE M+ 28, 4 ¡COLOR 
32 ! PLOT PX,PY 

398 POSITION Z,NY*CPX>9) ¡PUT 996,37¡PUT 
916, 38: POSITION Z,NY-29(PX>9> ¡PUT 996,4 
2!PUT 996,36 

480 SOUNO 8,255,2,15:F0R 11=1 TO 588 :NE 
XT M : SOUNO 0,0, 8,0 

416 POSITION Z,NY9(PX>9):PUT I96,35:PUT 
196, 36 ¡POSITION Z,NY-24fPX>9) íPUT 996,3 
2;PUT 996,32 

420 PORE »L919,6:P0KE 0L928,6:G0T0 460 
430 REM 

448 FOR I=60 TO 8 STEP -4:S0I1N0 0,1,12 
, 1/4 : PORE 53274, PEER C53770) : 50UND 1,1, 
2, 1/4 ¡PORE 53274, PEER CS3770) 

450 COLOR ASC CEXPL5 (16-1/4) ): PLOT PX,P 
Y ¡PONE 53274, PEER (53778) íNEXT I 
468 COLOR 32:IF LIFE <3 THEN PLOT 159LI 
FE*2,1 

470 PLOT PX,PY:LIFE=LIFE91:IF LIFE <4 T 
HEN ENERGY=500 : GOSUB 770 ¡GOTO 180 
488 PORE 538, 8: PORE 53248, «¡PORE 53249 
, 0¡SOUNO 2,O,O,0¡SOHN0 3,0, 8,0 
490 COLOR 32 ¡ PLOT 0,5¡ORAMTO 19, 5 ¡PLOT 
6,7¡0RAMT0 19,7 ¡POSITION 5,5 1? 996; M FI 

NALIZA " 

580 POSITION 5,7¡? 996; ,f PULSE 00033” :P0 
RE 53279,8 

510 IF PEER (53279) 06 THEN 510 
E20 RON 
530 REM 

540 CNSET= (PEER (106) ~12)*256 ¡ IF PEEKCC 
HSET98) =2 THEN 688 

558 PORE 88,8 ¡PORE 89,CHSET/256-4¡? CH 
R$(125) 

560 GRAPHICS 18¡SETC0L0R 4,0,10:POSITI 
ON 4,5¡? 996,* 11 EL HOMBRE "¡POSITION 5, 
7¡? 996;*WEIS!fiE^V , ¡SETCOLOR 1,4,4 


15 SEGUNDOS 


II < 
f 


578 OL=PEER (568) ?256*PEER (561) 94 
583 PORE 0L912, 6 ¡POSITION 1,11:? 996; "E 
SPERE 

598 GOSUB 890 ¡GOSUB 808 

680 GRAPHICS 17¡OL=PEERÍ560)92S6*PEER( 

561) +4 ¡ OIM FOOL$ (4) , PC$ (4) , EXPL$ (16) : R 
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TIPIANDO: continuación 


estore ese 

eie FÜR 1=1 TO 4 ¡ REAO A ; FOOL$ (II =CHR$ ( 
A):KEKT I:FOR 1=1 TO 4:READ A:PC$(I)=C 
HR$(A}¡NEXT Z 

626 FÜR 1=1 TO 16:READ A:EXPL$CI)=CHR$ 
CAI :NEXT I 

ese OATA 41,169,9,137,43,171, 11, 139, 44 
,172,12,146,45,173,13,141,46, 174,14,14 
2,47,175,15,143 

646 POKE 0L-1,71:P0KE DL+2,7¡POKE DL+2 
1,4 ¡POKE 0L+2Z,4:P0KE DL+?3,4:P0KE DL+ 
24,4: POKE 756, Ctf SET/ 256 
656 SETCOLOR 8, 13, 14: SETCOLOR 1,7,12:5 
ETC0LOR 2, 12, 8: SETCOLOR 3,4,14:5ETC0L0 
R 4,5,4 ' 

666 P05ITI0K 6,0:? «66 puntes 


das 


676 P05ITI0N 6,1:? W6;‘* 566 6 

,f ;PC$ 12,21;" “;PC$C3, 1H" *';PC$(4,4); 

600 P05ITI0N 6,22:F0R 1=6 TO 19.PUT «6 

,39:PUT tt6,46:NEXT I 

690 POSITION 6,20:FOR 1=6 TO 19:PUT <t6 

,33:PÜT tt6,34:HEXT I 

766 P05ITI0H 16,20:PUT lt6,35:PUT «6,36 

716 PMBA5E=CH5ET-1024 : P0=PMBASE+5I2 :P1 

=PB+128:POKE 54279, PHBA5E/256; POKE 559 

,46: POKE 53277, 3: POKE 623,32 

720 POKE 704,4*16+8: POKE 705, 14: POKE 5 

3256,1: POKE 53257,1 

736 RE5T0RE 746 ¡FOR 1=6 TO 4:REA8 A:PO 

KE P8+96+I, A:NEKT l:FOR 1=6 TO 2:REAP 

A ¡POKE P1+91+I, A:NEXT I 

746 OATA 12,36,255,8,6,4,240,2 

750 FOR 1=1 TO 5:P05ITIOK 19*RND(6},18 

*RRD (61 +3 : R=INT (4*RMD (6) +11 : ? «6 ; FGOLS 

(R, R1 :HEXT I 

766 SOURO 2, O, 12, 2 ¡SOURO 3,6,12,2: A=U5 
R (1664) 

778 PX=5 : PY=5 !PC=A5C ÍPC$ CLIFE+1 , LIFE+1 
1) ¡COLOR PC¡PLOT PX,PY:P0KE 53278,8 
780 IF STICKCOl =15 THEX 766 
798 RETURH 

*■ 

808 RESTORE 818 ¡FOR 1=1664 TO 1718: REA 

O A: POKE I, A.NEXT I;RETURK 

818 OATA 104,169,139,141,48,2 

820 OATA 169,6,141,41,2,230,203,236,26 

3 

836 OATA 236,283,165,263,141,8 
848 OATA 208,141,1,268,141,6,218 
85® OATA 73,255,141,4,216,173,244,2 
866 OATA 73,12,141,244,2,169 
876 OATA 2,141,26,2,96 


886 COTO 880 

890 FOR 1=128 TO 471 :Z=PEEK (57344+11 :P 
OKE CH5ET+I,Z:P0KE CH5ET+I+1024, Z; XEXT 
I 

968 RESTORE 940 

916 REAO A¡IF A=~l THEX RETURH 

928 FOR J=8 TO 7 ¡REAO B ¡POKE CHSET+A*8 

+J,B:HEXT JíGOTO 918 

936 DATA 0,0, 8,8, 8,6, 6, 6,8 

948 OATA 1,2, 9,9, 9, 9, 9, 2, 6 

958 OATA 2,166,88,88,88,88,88,168,0 

968 OATA 3,12,3,16,196,195,63,3,3 

976 OATA 4,8,192,252,236,252,248,192,1 

92 

98B OATA 5,3,35,131,139,139,171,35,3 
998 OATA 6,192,192,224,232,202,194,194 

,280 

1@00 OATA 7,64,80,84,85,85,85,85,85 
1818 OATA 8,1,5,21,85,85,85,85,85 
1828 OATA 9,8,182,219,36,126,137,66,68 
1838 DATA 18,8,15,0,51,63,15,15,3 
1048 OATA 128,8,0,8,8,8,8,8,8 
1858 OATA 129,2,9,9,9,9,9,2,8 
1868 OATA 138,168,88,88,88,88,88,160,6 
1078 OATA 13i, 12,3,0,192,135, 63,3,3 
1880 OATA 132,0,192,252,204,252,240,19 

2.192 

1090 OATA 133,3,3,35,171,139,139,131,3 
5 

1180 DATA 134,192,260, .194,194,202, 232, 

224.192 

1118 DATA 135,64,88,84,85,85,85,85,85 
1128 DATA 136,1,5,21,85,85,85,85,85 
1138 DATA 137,129,182,98,^6,126,82,36, 

24 

1140 OATA 138,8,15,8,48,63,3,15,15 
1150 OATA 11,153,219,231,255,98,24,36, 
66 

1168 DATA 139,24,90,231,255,219,153,36 

,66 

1178 OATA 12,217,219,231,75,2,24,36,66 
1188 OATA 13,216,225,235,69,7,2,48,66 
1198 OATA 14,192,192,145,3,67,1,72,138 
1208 OATA 15,192,128,8,1,1,8,16,128 
1218 OATA 148,217,219,247,99,22,24,36, 
68 

1220 OATA 141,216,225,227,71,23,138,32 

,66 

1238 OATA 142,192,200,129,3,131,1,64,1 
36 

1248 DATA 143,192,144,8,1,1,8,8,128 
1256 OATA -1 • 
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TECNICAS 


Set de 

* i 

caracteres 







' ■ ^ 


Con la interrupción de la columna el mes an- 
terior para permitir la incorporación de nuevos lec- 
tores, reiniciamos el tema con la siguiente inte- 
rrogante: 

¿Qué utilidad presenta ei conocimiento del Set 
de caracteres? 

Examinemos directamente un ejemplo, para 
el modo gráfico uno y dos se encuentra disponi- 
ble sólo la mitad del Set de Caracteres. 

Digite: 


18 GRAPHICS 1 

28 ? «6; ,, abH ,, 


ejecute con la instrucción RUN. 

La pantalla aparece como ilustra la foto: 



Los caracteres de la línea 20 a editar son: 

- las letras a b (minúsculas) 

— los caracteres gráficos (CONTROL A, CON- 
TROL R, CONTROL D) 

¿Razones de este comportamiento diferente? 

Para el modo gráfico 1 no se encuentran dis- 
ponibles las minúsculas ni los caracteres gráficos. 

Agregue la línea siguiente: 


38 PRIHT PEEKC7561 

Ejecute el listado, con lo que aparecerá en la 
ventana el valor de retorno 224. 



Para interpretar este valor revise los números 
anteriores de MUNDOATARI en las columnas de 
Técnicas y De byte en byte. 

Agregue a continuación; 


5 MU R$UJ 
18 GRAPHICS 1 

28 ? «GrabH" 

38 PRIHT PEEKÍ756) 

48 ? " PRESIOHE RETURH Y C0HTIHUA":IHP 
HT R$ 

58 PBKE 756,226 

68 ? 11 PRESIOHE RETURH Y C8HTIHUA“:IHP 
UT R$ 
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TECNICAS 


Ejecute el programa y aparece una primera 
pausa que corresponde a la ejecución anterior, ver 
foto: * 



Presione la tecla RETURN como indica el 
mensaje, y aparece lo siguiente en pantalla: 



PRESIONE RETURN V CONTINUO 
PRESIONE RETURN V CONTINUA 


¿Qué sucedió con las letras que no se encon- 
traban disponibles? 

Muy simple, al modificar el puntero 756 hacia 
el valor 226 se utiliza la otra mitad del Set, que 
corresponde a las minúsculas y los caracteres 
gráficos. 

¿Cómo volver a la anterior imagen con las ma- 
yúsculas? 

Digite la línea siguiente: 

7A POKE 7S6, 224: GOTO 30 

Ahora ejecute y podrá pasar de un tipo a otro 
de letras. 



Ahora observe la pantalla para las letras mi- 
núsculas. Note la imposibilidad de utilizarla, pues 
la pantalla está saturada de corazones, en lugar de 
espacios. 

Los esquemas siguientes ilustran los programas: 





El carácter equivalente al espacio de primera 
ubicación en el Set, es el equivalente al carácter 
"corazón'' (ubicación 64 dentro del Set). 

Para aclarar estos conceptos ejecute el pro- 
grama Analizador del Set en MUNDOATARI 7, 
página 20. 

¿Cómo podemos eliminar ios corazones? 


Aquí comienza nuestro problema. 

El Set de Caracteres se encuentra en ROM, 
y por lo tanto es imposible de modificar. 

Pero existe una solución de alternativa, que 
consiste en mover el Set hacia un área de memoria 
previamente protegida, en donde se realizarán 
las modificaciones. 
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TECNICAS: continuación 


El esquema ilustra lo afirmado: 

RESERVA ROM 




m 

ATAR! BASIC 


SET 


156 J 

i 160 

^ i 




mover SET 




3. Modificar el puntero 7¿6 para el nuevo Set 
y la segunda mitad. Ver esquema: 


SET 


ROM 



158 


224 


Hagamos un recuento de las etapas: . . . . 

Digite el siguiente listado: 

1. Proteger un área de la memoria: Línea 3000, 
la localización 106 define la última página dis- 
ponible para el ATAR! BASIC. 

2. Asignamos la página disponible a la variable 
PAGINA, línea 3010. 

El esquema anterior ilustra la situación de 
reserva. 

3. Edita modo gráfico 1 , con caracteres no al 
acceso. Ver línea 3020. 

4. Mover vía BASIC los 1024 bytes desde el 
ROM hacia las páginas reservadas. Ciclo con 
variable control J. Ver líneas 3030 a 3070. 

El esquema anterior ilustra la situación. 

5. Modifica el carácter de corazón por el carác- 
ter en blanco. Para ello la variable LOC de- 
fine la ubicación de los 8 bytes en el Set. 

Ver I íneas 3100 a 3140. 

El siguiente esquema ilustra la operación: 


3000 P0ÍE 106,PEEICC1§6)~4 
3010 PAG1NA=P£EÍ f 106) 

3020 CMPHICS l:? #6;"abH" 

3030 mi J=0 T0 1*23 

3040 INICIAL=224*256+J 

3050 FINAL =PACINA*256*J 

3000 P0ÍE FINAL, PEEN (INICIAL) 

3070 NEXT J 

31N0 CARAC=64*8 

3110 FON J=0 T0 7 

3120 L0C=PACINA*256+CARAC+J 

3130 P0ÍE LOC, 6 

3140 NEMT J 

3200 POÍE 756,PACINA+2 



64 RAM 


Al ejecutar aparece en pantalla lo siguiente: 


OPTIMIZACION: 

El tiempo para mover ei Set es largo. Una 
buena optimización es aplicar la rutina MOVER, 
vista en números anteriores en la columna USR. 
(ver modificación en siguiente cuadro). 

El próximo mes veremos otros ejemplos pa- 
ra modificaciones del Set de Caracteres. 

Hasta entonces. • 


166 


160 


los corazones 
se cambian a: 
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PARTICIPANDO 

Hemos recibido una aclaración desde 
Punta Arenas en relación a una rutina publi- 
cada en MUNDOATARI No. 4 en la colum- 
na USR (MOVER). Nuestro lector Oscar 
Stuardo Soto con un acucioso análisis, de- 
muestra en el listado adjunto que la rutina 
no sirve sólo para mover hasta 256 bytes, 
sino que mueve hasta 65.535, con el llamado: 

Z — USR ( dirección , desde , hacia , largo ) 

PLA 

PLA 

STA DESDE + 1 
PLA 

STA DESDE 
PLA 

STA HACIA + 1 
PLA 

STA HACIA 
PLA 

STA LARGO + 1 
PLA 

STA LARGO 

MUEVE LDYéOO 

LOA (DESDE), Y 
STA {HACIA}, Y 
INC DESDE 
BNE OKDESDE 
INC DESDE + 1 
OKDESDE INC HACIA 

BNE OKHACIA 
INC HACIA + 1 
OKHACIA DEC LARGO 

BNE MUEVE 
DEC LARGO +1 
BPL MUEVE 
RTS 

MUNDOATARI revisó dicha rutina y 
descubrió que tal como estaba no podía mo- 
ver más de 256 bytes por haberse colado un 
pequeño gusano en la memoria y haber cam- 
biado una letra o en negativo por una o en 
positivo. 

Una vez efectuado el arreglo funcionó 
como lo propuso nuestro amigo lector. 

Felicitamos a don Oscar y lo premiamos 
con un programa 30 rutinas para USR , para 
que continúe atento. 

A sugerencia de él entregamos los data 
de la rutina para mayor seguridad: 

104, 104, 133, 241, 104, 133. 240. 104, 133, 
213, 104, 133, 212, 104, 133. 239, 104, 133. 
238, 160, 0, 177, 240, 145, 212, 230, 212, 208, 
2, 230, 213, 230, 240, 208, 2, 230, 241, 198, 
238, 208, 234, 198, 239, 16, 230, 96 


De byte 
en byte 


LOS CODIGOS ATASCIi. 

Ordenamiento para el usuario de los 128 ca- 
racteres disponibles en el Set Standard de carac- 
teres en ROM. 

Digiteel siguiente programa: 


1« REH PROGRAMA 1 BYTE EN BYTE 
20 POKE 766,1 

39 POKE 82,4: POKE 83,35 

40 FOR J-8 TO 127 
50 PRINT CttR$tJ); 

60 NEXT J 

70 POKE 766,0 


AS ejecutarlo aparecen en pantalla los 128 ca- 
racteres. 

La variable J es la que asume el valor del 

CODIGO ATASCII. 

Observe que aplicamos aquí la localización 
766, analizada en MUNDOATARI No. 6 de no- 
viembre de 1987. 

Además se ha modificado los márgenes- iz- 
quierdo y derecho, con el fin de centrar 32 carac- 
teres por línea. Para el uso de estas localizaciones 
ver en MUNDOATARI No. 0. 

I 

El código ATASCII permite al usuario editar 
el carácter asociado al número, en este caso con 
la función PRINT CHR$. 

En este caso específico, el control para el 
carácter lo asume el usuario. 
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MEMORIA: continuación 


3. CONTROL AT ASCII 

Localización 763. 

Esta localización almacena temporalmente el 
código ATASCII para el carácter que el ATARI 
se encuentre ejecutando en ese momento (ingre- 
so de teclado o procesos internos). 

Digíte el siguiente listado: 


19 REH BYTE 2 
29 9IM 9$ 1191 
29 A$=“ftHlAJ¿ u 
49 L=LERM$) 

59 F9B J=1 TO t 
95 PRIBT 

79 PRUT PEER 17633 ; M "í 
99 HEXT J 


Para digitar los caracteres de línea 30. 

El primero corresponde a CONTROL y tecla 
de " , " (coma), los siguiente a la secuencia de: 
CONTROL y la tecla A hasta la I. 

Ejecute el programa y en pantalla aparece a 
continuación del carácter el código ATASCII aso- 
ciado al carácter del 0 al 9. 

Modifique el programa para que aparezcan 
los 128 caracteres en pantalla. 


NOTA: 

— Debe modificar las líneas 20 a la 128 respecto 
a la dimensión de ia variable A$. 

— Digitar en la línea 30 los 128 caracteres. 

Si se encuentra en problemas por la cantidad 
de caracteres a editar en una línea, agregue una 
segunda línea. 

Para esto utilice el concepto de subíndice en 
él manejo de string, analizado en la columna 
Torpedo de meses anteriores de MUNDOATARI. 

A continuación analizaremos esta localización 
considerando el teclado como ingreso del código. 
Digíte para ello el siguiente programa: 



19 REK BYTE 3 
29 DPEN tU,4,9« a> K: n 
39 SET ttlf ft 

49 PRINT PEER C763J J M "iCHRStM 
59 COTO 39 

Practique ingresando las letras por el teclado 
y aparecerá en pantalla el código ATASCII y el 
carácter asociado. Como guia de referencia se 
proporciona en recuadro adjunto una lista de 

dichos códigos. 

El próximo mes estaremos en esta columna 

con el código interno. • 



24 


MUNDOATARI 




Amigos lectores de MUNDGATARI, la co- 
lumna Primeros pasos en el ATAR! BASIC pro- 
porciona una rutina práctica para aplicaciones 
comerciales, corno por ejemplo la facturación. 

Cuando ustedes se preguntan en ciertos mo- 
mentos: 

¿ Qué puedo programar? 

ustedes podrán obtener una respuesta al respecto 
con el ejemplo de este mes, que MUNDOATARI 
ha desarrollado para demostrar la potencialidad 
del computador ATARI, Esta rutina proporciona 
una posibilidad práctica que transforma un núme- 
ro ingresado a su correspondiente texto en pala- 
bras. 

¿ Dón de u ti liza ría ? 

El caso más típico es en el caso de la factura- 
ción, obviándole a usted la necesidad de escribir 
ese texto. 


10 REM REDACTAR UNA CANTIDAD A LETRAS 
28 DIN NUH$(12) , PAUSAS (i) ,C$(1) , LINEA $ 

188) , LEES (28) 

48 GRAPHICS 8 

58 POSITION 8,2:? "DICITE el nimero a 
redactar” 

88 INPIIT NUM$ 

78 NU)ER0=INT (MAL (NUH$) ) 


80 L -LEU (HUH$) 

188 EOR J=1 TO L 

118 IF NUM$CJ,J)=V* TREN CízNUNSíJ, J+ 
1 ) 

120 NEXT J 
138 N=NUHERO 
148 LÍNEA$= l(ai 
145 NK=0 

150 MXLE5=INT(N/ieO0) :REST0=N-MILE5*18 


II 


Mil 


155 IF HILE 5=0 TREN 298 
150 N=MILES 
155 C=1:T=1 

170 IF N>99 TREN G05UB 680 
172 IF N=0 THEN LINEAS Ot-l f H+3J 
":C=C+1:G0T0 230 
175 IF N)l9 THEN 200 
180 RESTORE 2008+NiREAD LEES : L=LEH (LEE 
S) : LINEAS (T , T+L-l) =LEE$ : T=T+L : H=LEN (LI 
REAS) ¡GOTO 220 

288 K=LEN(NUM$) !IF NIM$M-3 # K-3> <>"8" 
THEN COTO 210 

205 RESTORE 2088+N:REA» LEES :H=LEN CLIN 
EAS) : LINEAS (T f T+H-l) =LEES i K=LEN (LINEAS 
):C0T0 228 

218 DECENA=INT (N710) : DICIT0=N-DECENA*1 
9 
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TUTORÍA: continuación 



212 IF &ECENA-# THEN 216 
214 RESTOSE 288Í+RECENA&10 : REAS LEE$;N 
=LENCLE£$) : LINEAS (T, M+Tl) =LEE$ ; LINEAS 
(M+T,*I+2*TÍ=" y " ; K=LEN (LINEAS) 

21$ IF RIGIT0=0 THEN COTO 220 

210 RESTORE 2880+RIGITO:REAR LEE$:V=LE 

N (LEES) : LINEAS CK) =LEE$ ! N=LEN (LINEAS) 

220 H=H+1 ¡LINEAS (H« H+4) =" Mil M 

230 IF RESTOLO THEN K=H+4:GOT0 390 

240 N=RESTO i L=LEN (LINEAS) : C=L : T=L 

250 60T0 300 

290 T=1:C=1 

300 IF N=6 THEN 390 

305 IF N>99 THEN COSUB 600 

310 IF N()0 THEN 355 

320 tt=C:GOTO 390 

355 IF N>19 THEN 365 

360 RESTORE 2000+N:REAR LEES :L=LEN (LEE 

S) : LÍNEAS CC, C+L)=LEE$ : N=LEN (LINEAS) I 60 

TO 390 

365 IF NtmS(l f lX> ,> 0 H THEN 375 
370 RESTORE 20B0+N:REAR LEES :L=LEN (LEE 
$) : LINEAS (C *1 , C+LJ =LEE$ : M=LEN (LINEAS) : 
60T0 390 

375 RECEN A=XNT (N/10) :RIGIT0=N -RECEN A*1 

• 

300 RESTORE 2000+RECEN A*10 : REAR LEE$:H 

=LEN (LEES) ¡ LINEAS (T, H+T~l) =LEE$ : LINEAS 

CIH-T f »H2LT)= M y M :M=HfT+3 

382 K=LEN (NIIHS) : IF NUH$(K,K)= (t O M THEN 

LINEAS CM“2) =" " : lfcM-4 : COTO 390 

305 RESTORE 2868+RIGIT0:REAR LEE$:V=LE 

N (LEES) : LINEAS (10 =LEE$ : H=LEN (LINEAS) 

390 LINEAS (ttfl, 11*6) r- pesos' 1 ;? LINEAS; 

ENR 

480 ENR 


600 CENTENA=INT CN/100) 

610 N=N~CENTENA*180 

620 IF CENTENA >1 THEN 640 

630 LINEAS fC,C*6)="C i ento ** : T=LEN (LINE 

AS);T=m:IF N<>0 THEN GOTO 690 

635 T=T-4 : C=T : R=T+2 ; RETURN 

640 IF CENTENA 05 THEN 650 

645 LEE$~ ,t quin H ;GOTO 655 

650 RESTORE 2006+CCNTEN A «REAR LEES 

655 L=LEN (LEES) ; LINEAS IC,C+L-1) =LEES : L 

=LEN (LINEAS) 

660 XF CENTENA05 THEN 680 

670 LINEAS (L*l , L*7) =" i entos ":T-L+8:60 

TO 690 

680 LINEAS CL*i, L*8) ="Cient05 “:T=L*9 
690 C =LEN (LINEAS) :T=Ci RETURN 
1000 P05ITI0N 0,20¡? 11 ERROR en ingres 
e de minero" 

1010 PO5ITI0R 0,21 ¡? "PRESIONE Return 
para continuar" 

1020 INPtlT PANSAS 
1030 GOTO 4® 

2001 RATA Uno 

2002 RATA »05 

2003 RATA Tres 

2004 RATA Cuatro 

2005 RATA Cinco 

2006 RATA Seis 

2007 RATA Siete 
2608 RATA Ocho 
2009 RATA Nueve 
201# RATA Diez 

2011 RATA Once 

2012 RATA Roce 

2013 RATA Trece 

2014 RATA Catorce 

2015 RATA Quince 

2016 RATA Rieciseis 

2017 RATA diecisiete 

2018 RATA dieciocho 

2019 RATA diecinueve 

2020 RATA Veinte 
2030 RATA Treinta 

2040 RATA Cuarenta 
2050 RATA Cincuenta 

2060 RATA Sesenta 

2070 RATA Setenta 

2080 RATA Ochenta 

2090 RATA Noventa 


Aplique esta rutina y escríbanos comentando 
otras aplicaciones que usted ie pueda dar. 

Hasta el próximo mes. • 
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NOVATOS 



La columna inicial para los nuevos usuarios 
de computadores ATARI continúa esta vez con el 
conocido juego de adivinanzas: El Ahorcado. 

El programa presenta un desarrollo simple con 
todos los comentarios relacionados a la acción de 
las instrucciones con sus correspondientes REM. 
¿Cuál es ia idea? 

h . '* • . * 

- Digite cuidadosamente las líneas de! listado. 

— Ejecútelo y disfrute de! juego. 

- Analice las líneas del programa para compro- 
bar los comentarios. 

— Finalmente es importante su imaginación pa- 
ra aplicar esta información. 

Una de las experiencias más interesantes de 
MUNDOATARI en el quehacer de la educación 
a distancia es la aplicación inmediata „de ios nue- 
vos conocimientos en programas de utilidad. 

Usted, amigo lector, es el principal actor y 
responsable del logro de estas actividades de supe- 
ración, que benefician a su núcleo familiar, per- 
mitiendo la exploración, capacitación y proyec- 
ción hacia el mundo del futuro, especialmente 
para los educandos. 


10 REH COLUMBA NOVATOS ABC 
20 REM APRENDIENDO BASIC 
10 REM CON JUEGO EL AHORCAOO 
40 REH MUNDOATARI DICIEMBRE 80 
SO DIN ANSHERS C40) , LTR$ (i) , HOLD (40) 

55 NUHC0RRECT=0 : T0TAL=0 
60 GRAPHICS 7 ! CTR~§ * YE5-0 : CORRECTOR : IN 
CORRECTOR : 5ETC0L0R B,2,4:5ETCOLOR 1,12 
,10:GOSU0 610 

65 POR LP=1 TO 40 : HOLD CLP1 =0 : NENT LP 


70 READ ANSHER$;REH OBTIENE TENTO DE L 
INEAS DATA LINEA 000 
80 IF AN5HEP$~"FIN** THEN GOTO 660: REH 
FINALIZA EL JUEGO PUEDE INTRODUCIR NUE 
VAS PALABRAS Y MOVER PALABRA FIN 
85 T0TAL=T0TAL+1 

90 FON LP=i TO LEN (AN5HER$) : REH LOOP P 

ARA EL LARGO DE PALABRA 

10» PONE 656,0: PONE 657, LP*2: PRINT 

; :REH EDITA EL NUMERO DE LETRAS DEL TE 

NTO 

110 NENT LP : PONE 656,2:P0KE 657,24 :PRI 
NT M "J 

115 PONE 656, 2: PONE 657,25:PRINT ■ "J 
120 LTR$= ,m : PONE 656,2 íPOKE 657,0 íPRIN 
T HatWaBKWMMBMHái a» 1 : : INPNT LT 
R$ 

130 IF ITRIa"'* THEN GOTO 115 
140 CTR=CTRU:REH INCREMENTA VARIABLE 
CORTADORA PARA LETRA CORRECTA EN PALAB 
NA 

150 PONE 656,3’POKE 657,CTR:PRIHT LTR$ 

« 

f 

160 FOR ZIP=200 TO 100 STEP ~10:SOUHD 
0,ZIP,10,4:NENT ZIP:S0UND 0,0,0, 0:REH 
SONIDOS 

170 FOR LP-1 TO LENfANSHER$) :REH LOOP 

DE REPETICION PARA LARGO TENTO 

175 IF ANS»ER$(LP,LP)=LTR$ AND HOLD (LP 

)=0 THEN HOLD CLP! =1: YES=1 í CORRECT-CORR 

ECTU 

101 IF ANSNER$ CLP, LP) ~LTN$ THEN PONE 6 
56,0! PONE 657 , LP#2 : PRINT LTR$ 

190 IF ANSMER$ (LP, LP) =LTR$ THEN FOR ZI 

P-5B TO 150 STEP 18:50UND 0,ZIP,12,4:N 

EHT ZIP:S0UND 0, 0,0,0 

200 NENT LP:IF YES"! THEN YES=O:G0TÜ 2 

50 

210 INCORRECT=INCORNECTU 

220 FOR ZIP=10 TO 50:S0URD 0,ZIP,8,4:N 

EXT ZIP:50UND 0,0,0, 0 

230 ON INCORRECT GOSUB 710,750,790,030 

,070,910,950,990 

248 IF INCORRECTAS THEN GOTO 410 

250 IF C0NRECT=LENCAN5MEH$) THEN GOTO 

510 

260 GOTO 115 

400 REH MENSAJE DE FIN 

418 COLOR 3:PLOT 123,13:DRAHT0 123,19: 
PLOT 120,30 :DR AUTO 126, 30: PRINT CHR$I1 
25): PONE 656,1: PONE 657,16 
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NOVATOS: continuación 



J 


748 REM DIBUJA EL CUELLO 

750 COLOR ÜFOR PP=29 TO 31;PL0T 1«,P 

P:DRAKTQ 125,PP¡UEXT PP 

770 RETURU 

700 REH DIBUJA EL CUERPO 

790 FOR PP-32 TO 50 5TEP 2 ¡COLOR 2:PL0 

T 118,PP:DRAHT0 138, PP: COLOR 3:PL0T 11 

8 f PP+l:DRAMT0 130,PP+l:UEXT PP 

01© RETURU 

82§ REM DIBUJA BRAZO IZQUIERDO 

830 FOR PP=32 TO 38 STEP 2 : COLOR 2:PL0 

T 115,PP:DRAMT0 117, PP: COLOR 3:PL0T 11 

5, PP+i:DRAHT0 U7,PPU:HEXT PP 

840 FOR PP-32 TO 42 STEP 2:C0L0R 2:PL0 
T 110,PP:DRAMT0 11 4, PP: COLOR 3:PL0T 11 
e,PPH:DRAMTO 114,PP+1:UEXT PP 
850 RETURU 

880 REM DIBUJA BRAZO DERECHO 

870 FOR PP-32 TO 38 5TEP 2: COLOR 2:PL0 

T 131,PP:DRAHT0 133, PP ¡COLOR 3¡PL0T 13 

1,PPU:DRAHT0 133,PP+1:UEXT PP 

880 FOR PP-32 TO 42 5TEP 2 : COLOR 2:PL0 

T 134, PP;DR AUTO 138,PP:CDL0R 3¡PLH 13 

4,PP*l:DRAMT0 138,PP+1¡HEXT PP 

890 RETURU 

900 REH DIBUJA PIERHA IZQUIERDA 

910 FOR PP=S2 TO 80 STEP 2 ¡COLOR 2¡PL0 

T 118,PP:DRAMT0 122, PP; COLOR 3¡PL0T 11 

8,PPU¡DRAMT0 122,PP+1;HEKT PP 

920 COLOR l:F9R PP=6i TO 84:PLOT 116, P 

P¡DRAMTO 122,PP;MEXT PP 

930 RETURU 

940 REH DIBUJA PIERHA DERECHA 

950 FOR PP=52 TO 60 STEP 2 ¡COLOR 2:PL0 

T 126,PP¡DRAMT0 130, PP: COLOR 3¡PL0T 12 

6, PPU:DRAMT0 130,PPU:MEXT PP 

960 COLOR l:FOR PP-61 TO 64¡PL0T 126, P 

P : DRAMTO 132,PP¡NEXT PP 

970 RETURU 

980 REH 

990 RETURU 

1000 REH DATOS PARA EL JUEGO PUEDE HOD 

IFICAR PARA SU USO V HUHERfó 

1010 DATA HUNDOATARI, COELSA 

1020 DATA CLIIBATARI, VIDEONAHIA 

1930 DATA CLU8ST,CLUB fiOIT 

1040 DATA CLUB IHTERCAMBIO 

1050 DATA HOVATOS , € ASETERA 

1080 DATA USR, DIRECTO 6502 

1070 DATA APLICACIOMES, CATALOGO 

1080 DATA FIM 
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Aplicaciones 


MUNDOATARI tuvo capacidad en sus male- 
tas, durante su viaje a otros países, para algunos 
programas que pueden ser utilizados por nuestros 
lectores para tareas- específicas: 


CONTABILIDAD 

Es un programa simple de contabilidad gene- 
ral. La pantalla muestra el menú principal con sus 
tareas: 


•K .. . • ' 


El menú de direccionamiento permite las si 
guiantes tareas: 


Observe la particularidad de ingresar en pri- 
mer lugar la fecha del movimiento, para llegar a 
la pantalla de opción. 


o pc ion 


STOCK Y FACTURACION 


Diario 

Consulta Diario 
Consulta itayor 
Da lance 
Transare ion “S 
y cuentas 


Spertuf arCi er r e 
Utí i Í<ía<í 
Cquiro 
Hombre 


i I H i RODOS 


SOL IDOS 

HOOÍFICOíe Z ílIHIHftR 


Si S i»ue 


CONSUL T OH Articulo 
inpRímtt stotr 
r ac i URACION 




Otro programa de la misma procedencia, con Si su configuración presenta una impresora, i 

una excelente presentación inicial: tiene la °P ci6n * Producir los formatos. T 
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APLICACIONES: continuación 


ING RESOS Y GASTOS 

Otro programa de aplicación práctica para 
el hogar. 



CALENDARIO DE COMPROMISOS 

Este programa permite planificar las activi- 
dades (compromisos de un mes) como lo muestra 
el menú siguiente: 





APLICACIONES DE MICROINFORM ATICA 

Un conjunto de 8 programas, muy interactivo, 
en que destaca el programa de Inglés, que incluye 
la pronunciación de palabras para su aprendizaje. 

La foto siguiente muestra el menú con ¡as 
otras opciones: 




t>i 4 f'ÍO 

Consulta Oía* > o 
Consulta itayor- 

Tronsact i onos 
y Cuentos 
fcppitiir#/Cíerrf 
Ut i !>«'< 

Equipo 


VISICALC + ATAR I BASIC 



La popular Planilla Electrónica, el u ti 

itario de mayor uso para los microcompu- 
tadores, permite crear archivos de uso dife- 
rente. Así por ejemplo: 

- Salvar datos completos de la planilla 
creada. 

- Salvar datos de columnas o líneas en un 
formato especia! (Di F) # 

Una de las posibilidades es capturar es- 
tos datos mediante el BASIC para manipu- 
larlos en situaciones de decisión, que opti- 
micen los datos de una planilla. 

Para aquellos lectores que deseen pro- 
fundizar en este tipo de aplicaciones mixtas 
con la Planilla Electrónica, este programa 
permite capturar un Archivo DIF. 

Cree primero con su Planilla Electrónica 
(VISICALC) un archivo DIF con el nombre 
ATAR!, Luego digite las líneas del programa 
siguiente y ejecute. En pantalla aparecen 
una serie de datos que indican las caracte- 
rísticas del archivo y a continuación los da- 
tos grabados. 


16 R EN PROGRAMA CAPTURA U VI5 
15 6IH A$ (261 
18 CUENTA=6 
26 CLOSE IU 

36 OPER Hi,4,6, M 6;AT*tI'»IF" 
46 REH 

45 CUENTA=CRERTAH 
56 POKE 766,1 
68 IRPUT «1, AS 
78 ? CUENTA; ( V; AS,*" 

86 IF A$<> u EOD" THER 48 
96 PONE 766,6 
166 ERO 


' Modifique y analice este programa. Po 
drá ser de gran utilidad para la optimizaciór 
de los recursos de su Planilla Electrónica 
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Novena Feria de Computación 
Las Vegas, Nevada, USA 




DATAR I, revísta especializada para usuarios de microcomputadores 
ATAR!, estuvo presente en la Novena versión de COMDEX 
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REPORTAJE: continuación 



Este viaje se inicia como un 
sueño al entregar a todos núes- 
tros lectores de Latinoamérica 
las experiencias vividas en una 
Feria Internacional de Compu- 
tación (COMDEX 1987). 

Este mes ustedes comproba- 
rán que esta quimera es cumpli- 
da por MUNDO ATA Rl para 
complacencia de la familia ata- 
riana. 

Para desplazarnos físicamente 
a Las Vegas los servicios de 
PANAM resultaron excelentes. 
Un viaje directo de 1 5 horas 
de vuelo nocturno permitió que 
MUNDO ATA Rl se encontrara 
allí. 

Un punto intermedio es Los 
Angeles, que permite apreciar 
como una prevista de la intensi- 
dad del tránsito hacia Las Vegas, 
con un edificio majestuoso. 




■ ■■ 


impresionante 
infraestructura 
del aeropuerto 
de Los Angeles 



El viaje continúa hacia el lugar de destino, fru- 
to de la imaginación y esfuerzo americano, cons- 
truido en pleno desierto, y donde la imaginación 
se transforma en realidad con luz y color, que du- 
rante la noche adquiere su máxima dimensión. 

A la llegada, nuestra primera experiencia es 
apreciar el enorme flujo de personas en los dife- 
rentes hoteles casinos de esta ciudad, que tienen 
totalmente colmadas sus numerosas habitaciones. 

Esta Novena Feria atrajo a 1 20.000 personas 
(expositores y visitantes), quienes después de solu- 
cionar su estadía deben registrarse y obtener la 
credencial para el ingreso al recinto de la Conven- 
ción. 

Pudimos apreciar las características organiza- 
tivas del evento, para proporcionar en forma ex- 
pedita esta credencial, previo pago de US $ 50. 



32 


MUNDOATAR! 














REPORTAJE: continuación 






m 


Las siguientes vistas muestran 
e! lugar y !a expectación para in- 
gresar a la Feria varias horas an- 
tes de la apertura. 

Para llegar a esta Feria existe 
movilización desde eí hotel de su 
preferencia y sin costo adiciona!. 

La programación en la vida 
personal puede superar las ex- 
pectativas como estos visitantes, 
que para lograr el máximo de 
visitas por día llegan con una ex- 
traña composición de vestimen- 
ta: temos impecables y zapatilas 
para caminar cómodo. 

En la entrada hay otro aspec- 
to de la organización, diario gra- 
tis para todos los asistentes, con 
!a información actual acerca de 
noticias, avisos y actividades de 
la Feria (conferencias, etc.). 











Organización perceptible 
hasta en el último detalle 




*• d* ^-«5 í 
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REPORTAJE: continuación 


COMDEX POR DENTRO 


Y ahora e! aspecto interior de 
COMDEX '87. 

Nuestra próxima urgencia es 
ubicar lo que desearnos con más 
ansias: el stand de ATARI. 

En la parte central y colmado 
de público aparece a nuestros 
ojos el lema Power without the 
Price, característico de ATARI 
Corporation. 

Nuestra ansiedad se transfor- 
ma en calma al ver la magnifi- 
cencia y complejidad de la mues- 
tra presentada por ATARI en la 
Novena versión de COMDEX, 
Examinamos paso a paso cada 
uno de los distintos módulos de 
este gigantesco stand y como pri- 
mera impresión vemos la canti- 
dad de empresas productoras de 
software que muestran sus nue- 
vos productos. 

Iniciamos el recorrido por lo 
más nuevo, la Línea PC de ATA- 
Rl, que próximamente entrega- 
remos en detalle a nuestros lec- 
tores. 

Las imágenes muestran sus 
características y alta capacidad 
gráfica. 

Los modelos XT y AC que 
aparecen en las fotos siguientes 
fueron la sensación en esta mues- 
tra. 
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Poiwr Without the Price: 
ATAR! ofreció una magnífica muestra 
en ia línea PC a! ansioso público 
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REPORTAJE: continuación 


ATA Ri PC ofrece EGA 
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Arriba: impresora láser, sorprendente tecnología y precio 
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REPORTAJE: continuación 


ATAR l estuvo presente en las 
aplicaciones de vanguardia 


En las aplicaciones del com- 
putador, adquiere una impor- 
tancia funcional máxima produ- 
cir originales e impresos para la 
organización de los pequeños ne- 
gocios y empresas en general. 
Los programas Desktop Pubii- 
shing ejecutan estas operaciones. 


Comprobamos que nuestros 
ATARI se encuentran en esta 
tecnología con sus equipos ST y 
la nueva impresora láser, cuyo 
precio será muy inferior al actual 
para otras marcas. 

Otra de las directrices actua- 
les del mercado computacíonal 
a nivel mundial son los Grafica- 
dores en tercera dimensión CAD 
3D. 

El ATARI ST con su capaci- 
dad gráfica extraordinaria, sólo 
comparable con equipos de otro 
precio, es ideal para este tipo de 
software comercial. 

Luego vimos softwares para 
aplicaciones. 

Finalmente nos encontramos 
con los editores de la revista 
ANTIC, que publicitaban sus 
productos. 

Para el computador de 8 bits 
tenemos la novedad: el 65 XE 
y la nueva Unidad de Disco. 

En otro columna se describen 
estos equipos. 
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REPORTAJE: continuación 
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Arriba: Conexión a Polaroid para fotos de pantalla 

Derecha: Inferíase con música 
jo: Jack Powell, Manager of Product Development, 

de revista ANTIC 
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REPORTAJE: continuación 


Por la tarde fuimos invitados 
a una recepción de ATARI Corp. 
para las empresas productoras de 
software que cooperan en lograr 
los objetivos de desarrollo y ca- 
pacitación. 

Iniciamos con la presentación 
del presidente de esta corpora- 
ción, ubicada en el lugar 200 del 
ranking de Estados Unidos, 

A continuación fotos de esta 
recepción. MUNDOATARI fue 
el único medio que logró aspec- 
tos gráficos de esta reunión. 

Hasta aquf esta visita. 






Arriba: Joe Ferrari, Jefe de Software de ATAR! Corporation 
Abajo: Sr. Leonard, Ejecutivo de ATAR i Corporation 
Abajo derecha: Representantes de fnteiiigeni Games , Venezuela 


Abajo: Jack Trammief, presidente de ATARI Corp. 
junto a José Luis Dreidemie, director Sk y Data 



■ 

L 

i 

i* 






A continuación un concurso para nuestros 
lectores: escribanos con sus impresiones de este 
artículo en directo y exclusivo. Hay un sorteo y 
premios para las cartas que se reciban, 

Hasta un próximo evento de su interés. • 



MUNDOATARI 













MUNDOATAR!, consciente 
de sus objetivos ha estado per- 
manentemente creando nuevos 
centros de atención para sus mi- 
les de usuarios. Un resumen de 
actividades durante 1987 ha sido; 


1. VIDEOMANIA logró el obje- 
tivo de reunir a los fans de los 
videojuegos en una columna de 
continuidad, que probablemente 
se continuará a pedido de uste- 
des a partir de abril o mayo en 
la versión 19.88 (año 2) . 

Como resumen de esta acti- 
vidad estuvo la búsqueda del 
REY del Video juego, que fina- 
lizará en algún lugar adecuado 
durante este verano de 1988. 


2. CLUB ST. Esta actividad de 
agrupamiento de usuarios de 
la línea ST ha dado los frutos 
esperados. Nuestro grupo ya 
bordea los cincuenta suscripto- 
res. 




En este momento entrega a 
costo de diskette programas co- 
mo los siguientes: 

— Contabilidad 

— Fichero médico 

— Stock 

— Arcano!. Juego con excelente 
resolución gráfica 

— Bowling 

— Correcaminos 




Nuestra columna de intercam- 
bio con los miembros de nuestro 
Club ST continuará mediante in- 
formación adicional de tipo per- 
sonal para cada uno de nuestros 
socios. 

Recuerde que para incorpo- 
rarse a él sólo necesita ser sus- 
críptor de la revista. Para los so- 
cios de provincia se le despacha- 
rán sus compras de programas 
mediante el catálogo ATARI, j 


TESTIMONIO 


Resumen de actividades 


ENERO 1988 






TESTIMONIO: continuación 



3. CLUB 8 BITS. Esta nueva 
agrupación de usuarios de 8 
bits con la unidad de disco, tiene 
como objetivo proporcionar pro- 
gramas a bajo costo y de aplica- 


ciones prácticas para los miem- 
bros de este club. 

Pueden pertenecer a él ios 
suscriptores de la revista. Se 
ofrecen para ellos los programas 


descritos en esta misma como 
aplicaciones, al precio de $ 600 
cada uno. 

¡Gracias por la acogida a este 
núcleo de actividades! 

b - 
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4. CLUB DE INTERCAMBIO. 

Esta es la nueva actividad cre- 
ada por MUNDOATARI para 
quienes les gusta cambiar pro- 
gramas. Un aviso económico de 
un listado especial para ios 
miembros de este Club circulará 
privadamente entre ellos, sin 
cargo para los miembros. 

Es interesante. La única limi- 
tación es que no se permite 
anunciar la venta de programas, 
sino el intercambio entre los fa- 
náticos ATARI, de las diferen- 
tes ciudades. 

Escríbanos a nombre del 
CLUB DE INTERCAMBIO que 
se iniciará en marzo de 1988. 

Ahora amigo lector, si usted 
tiene alguna idea de actividades 
similares a las mencionadas y 
que MUNDGATAR! pueda orga- 
nizar, envíela a nuestra casilla. 
Para nuestros objetivos ella será 
nuestra causa, y usted su creador. 


MUN DOATAR I 
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AGUJAS MAGICAS: 

“Gane puntos" con 

el más completo 

■ 

libro del teje y bor- 
dado. 
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LIBRO DEL 
AUTOMOVIL: 

Todo para que us- 
ted y su coche 
marchen sobre 
rueuas . 


LA FUERZA DE LAS 






PALABRAS: 

Una gran obra, pa- 
ra dominar el espa- 
ñol “al pie de la 

tetra” 

letra * 

UN JARDIN 
DENTRO DE LA CA- 
SA: 

Haga florecer sus 
ideas y convierta su 
casa en un jardín. 

nata eos su revisU 


« 4.300 


REPARELO USTED 
MISMO: 

TV “ *\ í 




PORMENORES: 

Conozca la “sal y 


í/vx.';." V ■■ r. 


REGALE Y REGALESE ESTA NAVIDAD 




Ponga manos a la 


• -i : 

• ■ r ’t 


pimienta" que hay obra" y evítese los 

a ■ ■ ■ JL ir .."i* M v:, 

íi-t t- v ' i & - i m a , 

detras de cada técnicos en la mate- 

hecho histórico. ría. 

' • ■ • • '■ ' • ■: 

* Utilice SOLICITUD DE ORDEN DE PEDIDO, adj 




MUNDO A TARI, y reserve sus libros con ani 
documento» a nombré de Seleccione» del R< 

descuento incluido}, 
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